home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb2 / pro17 / wglibglo.bas < prev    next >
BASIC Source File  |  1992-07-31  |  12KB  |  263 lines
  1. DefInt A-Z
  2. Declare Function Ascii% Lib "wglib.dll" (ByVal s$)
  3. Declare Function ArgCnt% Lib "wglib.dll" ()
  4. Declare Function ArgVar$ Lib "wglib.dll" (ByVal x%)
  5. Declare Function ArrayTotI& Lib "wglib.dll" (Array%, ByVal cnt%)
  6. Declare Function ArrayTotL& Lib "wglib.dll" (Array&, ByVal cnt%)
  7. Declare Sub ArrayIncrI Lib "WGLIB.DLL" (Array%, ByVal Amount%, ByVal Els%)
  8. Declare Sub ArrayIncrL Lib "WGLIB.DLL" (Array&, ByVal Amount%, ByVal Els%)
  9. Declare Sub ArrayInitI Lib "WGLIB.DLL" (Array%, ByVal Amt%, ByVal NumEls%)
  10. Declare Sub ArrayInitL Lib "WGLIB.DLL" (Array&, ByVal Amt&, ByVal NumEls%)
  11. Declare Sub ArrayInitNDX Lib "WGLIB.DLL" (Array%, ByVal Begin%, ByVal NumEls%)
  12.  
  13. Declare Sub ArrayToCombo Lib "WGLIB.DLL" (Combo As Control, Array$, ByVal NumEls%)
  14. Declare Sub ComboToArray Lib "WGLIB.DLL" (Combo As Control, Array$, ByVal NumEls%)
  15.  
  16. Declare Sub ArrayToList Lib "WGLIB.DLL" (List As Control, Array$, ByVal NumEls%)
  17. Declare Sub ListToArray Lib "WGLIB.DLL" (List As Control, Array$, ByVal NumEls%)
  18.  
  19. Declare Function BitSetInt% Lib "wglib.dll" (ByVal v%, ByVal bit%)
  20. Declare Function BitChkInt% Lib "wglib.dll" (ByVal v%, ByVal bit%)
  21. Declare Function BitClrInt% Lib "wglib.dll" (ByVal v%, ByVal bit%)
  22. Declare Function BitSetLng& Lib "wglib.dll" (ByVal v&, ByVal bit%)
  23. Declare Function BitChkLng% Lib "wglib.dll" (ByVal v&, ByVal bit%)
  24. Declare Function BitClrLng& Lib "wglib.dll" (ByVal v&, ByVal bit%)
  25. Declare Function ByteCombine% Lib "wglib.dll" (ByVal lo%, ByVal hi%)
  26. Declare Function ByteSplitLo% Lib "wglib.dll" (ByVal v%)
  27. Declare Function ByteSplitHi% Lib "wglib.dll" (ByVal v%)
  28.  
  29. Declare Function DOSDate% Lib "wglib.dll" (m%, d%, y%)
  30. Declare Function DOSTime% Lib "wglib.dll" (h%, m%, s%)
  31. Declare Function DOSVer% Lib "wglib.dll" (x%, y%)
  32. Declare Function DeciBin$ Lib "wglib.dll" (ByVal v%)
  33. Declare Function DosInt% Lib "wglib.dll" (Regs As Any)
  34. Declare Function DayOfYr% Lib "wglib.dll" ()
  35. Declare Function Decr% Lib "wglib.dll" (ByVal v%, ByVal Amt%)
  36. Declare Function DrvGet% Lib "wglib.dll" ()
  37. Declare Function DrvSet% Lib "wglib.dll" (ByVal Dr$)
  38. Declare Function DOSVerTrue% Lib "wglib.dll" (Ver%, Rev%, HiLo%)
  39. Declare Function DrvSpace& Lib "wglib.dll" (ByVal Drv%)
  40. Declare Function DrvFree& Lib "wglib.dll" (ByVal Drv%)
  41. Declare Function DrvStat% Lib "wglib.dll" (ByVal Drv%, ClusPerSec%, AvailClus%, SecBytes%, TotClus%)
  42.  
  43.  
  44. Declare Sub EmbossFrm Lib "WGLIB.DLL" (Frm As Form, ByVal T%, ByVal l%, ByVal b%, ByVal R%, ByVal Thick%)
  45. Declare Sub EmpressFrm Lib "WGLIB.DLL" (Frm As Form, ByVal T%, ByVal l%, ByVal b%, ByVal R%, ByVal Thick%)
  46. Declare Sub EqInfo Lib "wglib.dll" (ParPorts%, SerPorts%, GamePort%)
  47.  
  48.  
  49. Declare Function FloppyType% Lib "wglib.dll" (ByVal Drv%)
  50. Declare Function FAttrGet% Lib "wglib.dll" (ByVal Fil$, Attr%)
  51. Declare Function FAttrSet% Lib "wglib.dll" (ByVal Fil$, ByVal Attr%)
  52. Declare Function FClose% Lib "wglib.dll" (FHandle%)
  53. Declare Function FCopy% Lib "wglib.dll" (ByVal Src$, ByVal Dst$)
  54. Declare Function FCount% Lib "wglib.dll" (ByVal mask$)
  55. Declare Function FCreat% Lib "wglib.dll" (ByVal mask$, FHandle%)
  56. Declare Function FDateGet% Lib "wglib.dll" (ByVal Fil$, Mo%, da%, Yr%)
  57. Declare Function FDateSet% Lib "wglib.dll" (ByVal Fil$, ByVal Mo%, ByVal da%, ByVal Yr%)
  58. Declare Function FDelete% Lib "wglib.dll" (ByVal Fil$)
  59. Declare Function Fexists% Lib "wglib.dll" (ByVal Fil$)
  60. Declare Function FEof% Lib "wglib.dll" (ByVal Hnd%)
  61. Declare Function FFlush% Lib "wglib.dll" (ByVal Hnd%)
  62. Declare Function FileLoad% Lib "WGlib.Dll" (ByVal Fil$, Size&, Buf$)
  63. Declare Function FileDNE% Lib "wglib.dll" (ByVal Fil$)
  64. Declare Function FOpen% Lib "wglib.dll" (ByVal mask$, FHandle%)
  65. Declare Function FOpenW% Lib "wglib.dll" (ByVal mask$, FHandle%)
  66. Declare Function FMove% Lib "wglib.dll" (ByVal Src$, ByVal Dst$)
  67. Declare Function FRecGet% Lib "wglib.dll" (ByVal fh%, ByVal Size%, tRec As Any)
  68. Declare Function FRecPut% Lib "wglib.dll" (ByVal fh%, ByVal Size%, tRec As Any)
  69. Declare Function FRecGetA% Lib "wglib.dll" (ByVal fh%, ByVal Quan%, ByVal Size%, tRec As Any)
  70. Declare Function FRecPutA% Lib "wglib.dll" (ByVal fh%, ByVal Quan%, ByVal Size%, tRec As Any)
  71. Declare Function FRename% Lib "wglib.dll" (ByVal OldF$, ByVal NewF$)
  72. Declare Function FRep% Lib "wglib.dll" (ByVal Src$, ByVal Dest$)
  73. Declare Function FReadByte% Lib "wglib.dll" (ByVal FHandle%, Buffer%)
  74. Declare Function FWriteByte% Lib "wglib.dll" (ByVal FHandle%, Buffer%)
  75. Declare Function FReadArray% Lib "wglib.dll" (Buffer%, ByVal FHandle%, Count%)
  76. Declare Function FWriteArray% Lib "wglib.dll" (Buffer%, ByVal FHandle%, Count%)
  77. Declare Function FSetPtr& Lib "wglib.dll" (ByVal h%, ByVal rec&, ByVal siz%)
  78. Declare Function FSizeH& Lib "wglib.dll" (ByVal Hnd%)
  79. Declare Function FSizeN& Lib "wglib.dll" (ByVal Fil$)
  80. Declare Function FTimeGet% Lib "wglib.dll" (ByVal Fil$, h%, m%, s%)
  81. Declare Function FTimeSet% Lib "wglib.dll" (ByVal Fil$, ByVal h%, ByVal m%, ByVal s%)
  82. Declare Function FWriteStr% Lib "wglib.dll" (ByVal handle%, Buffer$, bytes%)
  83. Declare Function FReadStr% Lib "wglib.dll" (ByVal handle%, Buffer$, bytes%)
  84. Declare Function FUnique% Lib "wglib.dll" (ByVal Path$, ByVal Attr%, FHandle%)
  85.  
  86. Declare Function GetWGLibVer% Lib "wglib.dll" (major%, minor%)
  87.  
  88. Declare Function Incr% Lib "wglib.dll" (ByVal v%, ByVal Amt%)
  89. Declare Function instri% Lib "wglib.dll" (ByVal Start%, ByVal Str1$, ByVal Str2$)
  90. Declare Function IsCharAlph% Lib "wglib.dll" (ByVal c$)
  91. Declare Function IsCharAlNum% Lib "wglib.dll" (ByVal c$)
  92. Declare Function IsCharLowr% Lib "wglib.dll" (ByVal c$)
  93. Declare Function IsCharUppr% Lib "wglib.dll" (ByVal c$)
  94. Declare Function IsStrAlph% Lib "wglib.dll" (ByVal s$)
  95. Declare Function IsStrText% Lib "wglib.dll" (ByVal s$)
  96. Declare Function IsStrAlNum% Lib "wglib.dll" (ByVal s$)
  97.  
  98. Declare Function Julian& Lib "wglib.dll" (ByVal m%, ByVal d%, ByVal y%)
  99. Declare Function JulianCvt% Lib "wglib.dll" (ByVal Jdate&, m%, d%, y%)
  100.  
  101. Declare Function KeyLockC% Lib "wglib.dll" ()
  102. Declare Function KeyLockN% Lib "wglib.dll" ()
  103. Declare Function KeyLockI% Lib "wglib.dll" ()
  104. Declare Function KeyLockS% Lib "wglib.dll" ()
  105. Declare Sub KBCapsOn Lib "wglib.dll" ()
  106. Declare Sub KBCapsOff Lib "wglib.dll" ()
  107. Declare Sub KBNumsOn Lib "wglib.dll" ()
  108. Declare Sub KBNumsOff Lib "wglib.dll" ()
  109. Declare Sub KBInsOn Lib "wglib.dll" ()
  110. Declare Sub KBInsOff Lib "wglib.dll" ()
  111. Declare Sub KBScrlOn Lib "wglib.dll" ()
  112. Declare Sub KBScrlOff Lib "wglib.dll" ()
  113.                           
  114. Declare Function LCount% Lib "wglib.dll" (ByVal Fil$)
  115. Declare Function LastNFirst$ Lib "wglib.dll" (ByVal N$)
  116.  
  117. Declare Function Mhz& Lib "wglib.dll" ()
  118. Declare Function MaxI% Lib "wglib.dll" (ByVal a%, ByVal NumEls%)
  119. Declare Function MinI% Lib "wglib.dll" (ByVal a%, ByVal NumEls%)
  120. Declare Function MaxIArry% Lib "wglib.dll" (Arry%, ByVal NumEls%)
  121. Declare Function MinIArry% Lib "wglib.dll" (Arry%, ByVal NumEls%)
  122. Declare Function MaxLArry& Lib "wglib.dll" (Arry&, ByVal NumEls%)
  123. Declare Function MinLArry& Lib "wglib.dll" (Arry&, ByVal NumEls%)
  124. Declare Function MaxL& Lib "wglib.dll" (ByVal a&, ByVal NumEls%)
  125. Declare Function MinL& Lib "wglib.dll" (ByVal a&, ByVal NumEls%)
  126.  
  127. ' the following MemCompA declaration allows easier usage but
  128. '  it works on INT arrays only.  The latter one works on any
  129. '  numeric array, but is more cumbersome, requiring VarPtr and VarSeg.
  130. Declare Function MemCompA% Lib "wglib.dll" (Src%, Dst%, ByVal words%)
  131. 'Declare Function MemCompA% Lib "wglib.dll" (ByVal SrcSeg%, ByVal SrcOffs%, ByVal DstSeg%, ByVal DstOffs%, ByVal words%)
  132.  
  133. Declare Function NybbleSplitLo% Lib "wglib.dll" (ByVal v%)
  134. Declare Function NybbleSplitHi% Lib "wglib.dll" (ByVal v%)
  135. Declare Function NybbleCombine% Lib "wglib.dll" (ByVal hi%, ByVal lo%)
  136.  
  137. Declare Function ParseFileSpec% Lib "wglib.dll" (ByVal raw$, Fil As Any)
  138. Declare Function PCase$ Lib "wglib.dll" (ByVal N$)
  139.  
  140. Declare Function RInstr% Lib "wglib.dll" (ByVal Src$, ByVal Find$)
  141. Declare Function ReverseStr$ Lib "wglib.dll" (ByVal s$)
  142.  
  143. Declare Function ShiftRightI% Lib "wglib.dll" (ByVal v%, ByVal c%)
  144. Declare Function ShiftLeftI% Lib "wglib.dll" (ByVal v%, ByVal c%)
  145. Declare Function ShiftRightL% Lib "wglib.dll" (ByVal v&, ByVal c%)
  146. Declare Function ShiftLeftL% Lib "wglib.dll" (ByVal v&, ByVal c%)
  147.  
  148. Declare Function StrCmpi% Lib "wglib.dll" (ByVal Str1$, ByVal Str2$)
  149. Declare Function SubDirCount% Lib "wglib.dll" (ByVal SDMask$)
  150. Declare Function SubDirExist% Lib "wglib.dll" (ByVal SDir$)
  151. Declare Function SubDirCH% Lib "wglib.dll" (ByVal SDir$)
  152. Declare Function SubDirMk% Lib "wglib.dll" (ByVal SDir$)
  153. Declare Function SubDirRM% Lib "wglib.dll" (ByVal SDir$)
  154. Declare Function SysTicks& Lib "wglib.dll" ()
  155.  
  156. Declare Sub SwapI Lib "wglib.dll" (a%, b%)
  157. Declare Sub SwapL Lib "wglib.dll" (a&, b&)
  158. Declare Sub SwapS Lib "wglib.dll" (a!, b!)
  159. Declare Sub SwapD Lib "wglib.dll" (a#, b#)
  160. Declare Sub SwapC Lib "wglib.dll" (a@, b@)
  161. Declare Sub SwapStr Lib "wglib.dll" (a$, b$)
  162. Declare Sub SwapAny Lib "wglib.dll" (a As Any, b As Any, ByVal siz%)
  163.  
  164. Declare Function TimerToggle% Lib "wglib.dll" (ByVal Tmr%, ByVal Toggle%)
  165. Declare Function TimerElapsed& Lib "wglib.dll" (ByVal Tmr%)
  166.  
  167. Declare Function VarPtr% Lib "wglib.dll" (Thing As Any)
  168. Declare Function VarSeg% Lib "wglib.dll" (Thing As Any)
  169. Declare Function ValFileName% Lib "wglib.dll" (ByVal FileSpec$, DOSCode%)
  170. Declare Function ValidDrv% Lib "wglib.dll" (ByVal Drv$)
  171. Declare Function VBLoaded% Lib "wglib.dll" ()
  172. Declare Function VerifyGet% Lib "wglib.dll" ()
  173. Declare Function VerifySet% Lib "wglib.dll" (ByVal Flag%)
  174. Declare Function VLabelGet$ Lib "wglib.dll" (ByVal d$)
  175.  
  176. Declare Function WinSpkrSnd% Lib "wglib.dll" (ByVal Freq%, ByVal Dur%)
  177. Declare Function WinMouse% Lib "Wglib.dll" ()
  178. Declare Function WinMode% Lib "Wglib.dll" ()
  179. Declare Function WinMem& Lib "Wglib.dll" ()
  180. Declare Function WinVer% Lib "Wglib.dll" ()
  181. Declare Function WinSysDir$ Lib "Wglib.dll" ()
  182. Declare Function WinDirectory$ Lib "Wglib.dll" ()
  183. Declare Function WinTempDrive$ Lib "Wglib.dll" ()
  184. Declare Function WinCurTime& Lib "Wglib.dll" ()
  185. Declare Function WinKeyBdType% Lib "Wglib.dll" ()
  186. Declare Function WinKBFuncKeys% Lib "Wglib.dll" ()
  187. Declare Function WinPrgName$ Lib "wglib.dll" ()
  188.  
  189. Declare Function Xlate% Lib "wglib.dll" (List$, ByVal xlat$)
  190.  
  191. Declare Function ZellerDay% Lib "wglib.dll" (ByVal Mo%, ByVal da%, ByVal Yr%)
  192.  
  193. ' ====================================
  194. '  VB Control Enahncement Declarations
  195. ' ====================================
  196. Declare Sub ConcaveCtl Lib "wglib.dll" (Ctrl As Control, ByVal Thick%)
  197. Declare Sub concaveFrm Lib "wglib.dll" (Frm As Form, ByVal Thick%)
  198. Declare Sub ConvexCtl Lib "wglib.dll" (Ctrl As Control, ByVal Thick%)
  199. Declare Sub ConvexFrm Lib "wglib.dll" (Frm As Form, ByVal Thick%)
  200.  
  201. Declare Sub CBClearList Lib "wglib.dll" (Combo As Control)
  202. Declare Sub CBShowList Lib "wglib.dll" (Combo As Control)
  203.  
  204. Declare Sub FrmFlash Lib "WGlib.dll" (ByVal Hnd%)
  205.  
  206. Declare Function GetCtrlHnd% Lib "WGlib.dll" (Ctrl As Control)
  207.  
  208. Declare Sub LBClearList Lib "wglib.dll" (List As Control)
  209. Declare Function LBFindPreFix% Lib "WGlib.dll" (List As Control, ByVal s$)
  210. Declare Function LBGetFirst% Lib "WGlib.dll" (List As Control)
  211. Declare Function LBSetFirst% Lib "WGlib.dll" (List As Control, ByVal Index%)
  212.  
  213. Declare Sub TextBoxFLoad Lib "wglib.dll" (Edit As Control, ByVal Fil$)
  214. Declare Sub TBSizeLimit Lib "wglib.dll" (Edit As Control, ByVal Size%)
  215. Declare Sub TBLineCount Lib "WGlib.dll" (Edit As Control)
  216. Declare Sub TBPassword Lib "wglib.dll" (Edit As Control, ByVal Char%)
  217.  
  218.  
  219. '==============================
  220. '   Structure Defs for WGLib
  221. '==============================
  222.  
  223. ' Structure for DOSInt
  224. Type CPURegs
  225.      AXReg As Integer
  226.      BXReg As Integer
  227.      CXReg As Integer
  228.      DXReg As Integer
  229.  
  230.      SIReg As Integer
  231.      DIReg As Integer
  232.      ESReg As Integer
  233.      DSReg As Integer
  234.      Flags As Integer
  235. End Type
  236.  
  237.  
  238. ' Structure for ParseFileSpec
  239. Type FilStruct
  240.     Drv As String * 2
  241.     Path As String * 64
  242.     Fil As String * 8
  243.     Ext As String * 3
  244. End Type
  245.  
  246. '============
  247. ' Struct used in demo only
  248. '===============
  249.  
  250.     Type TStruct
  251.         i As Integer
  252.         l As Long
  253.         s As String * 6
  254.     End Type
  255.  
  256.     Global Test() As TStruct
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.